home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ V5.02 / SCRPTEXM.PAK / SHIFTBLK.SPP < prev    next >
Text File  |  1997-05-06  |  1KB  |  38 lines
  1. //--------------------------------------------------------------------------
  2. // Object Scripting
  3. // Copyright (c) 1996, 1997 by Borland International, All Rights Reserved
  4. //
  5. // SHIFTBLK.SPP: Shift Block. Shifts the current block right or left a
  6. //   column at a time.
  7. //
  8. // USE: Run script. Use Alt-right arrow and Alt-left arrow to shift the
  9. //   block.
  10. //
  11. // NOTE: The key combinations used by this script are already in use under
  12. //   Epsilon emulation. They are assigned to IDE.ViewActivate(). The keys
  13. //   are #def'd below. Brief emulation provides functionality similar to
  14. //   Shift Block.
  15. //--------------------------------------------------------------------------
  16. print typeid(module());
  17.  
  18. //
  19. // IDE imports.
  20. //
  21. import IDE;
  22.  
  23. //
  24. // Hot key sequences.
  25. //
  26. #define HOT_KEY_LEFT   "<Alt-Left>"
  27. #define HOT_KEY_RIGHT  "<Alt-Right>"
  28.  
  29. shiftblk()
  30. {
  31.   // Assign keys in the editor's keyboard to the indent method. 
  32.   //
  33.   declare edKB = IDE.KeyboardManager.GetKeyboard("Editor");
  34.   edKB.Assign(HOT_KEY_LEFT, "editor.TopView.Block.Indent(-1);",
  35.               ASSIGN_IMPLICIT_KEYPAD);
  36.   edKB.Assign(HOT_KEY_RIGHT, "editor.TopView.Block.Indent(1);",
  37.               ASSIGN_IMPLICIT_KEYPAD);
  38. }